home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / magic / d / mtfiles.d < prev    next >
Text File  |  1997-10-26  |  3KB  |  63 lines
  1. (*----------------------------------------------------------------------*
  2.  *                                                                      *
  3.  *  MAGICTOOLS   Modula's  All purpose  GEM  Interface  Cadre  Toolbox  *
  4.  *               ÿ         ÿ            ÿ    ÿ          ÿ               *
  5.  *----------------------------------------------------------------------*
  6.  * Version 3.30  02.02.1992     (C)90/91/92 by Peter Hellinger Software *
  7.  *----------------------------------------------------------------------*
  8.  *            Dieses Modul ist urheberrechtlich geschtzt.              *
  9.  *                                                                      *
  10.  * Die Ver”ffentlichung des Quelltextes oder Teilen daraus, sowie die   *
  11.  * Verbreitung des bersetzten, nicht gelinkten Codes in schriftlicher, *
  12.  * oder maschinenlesbarer Form, insbesondere in Zeitschriften, Mail-    *
  13.  * boxen oder anderen Medien bedarf der ausdrcklichen schriftlichen    *
  14.  * Einverst„ndnisserkl„rung des Autors.                                 *
  15.  *                                                                      *
  16.  * Die Verbreitung des Moduls als Teil eines gelinkten Programms ist    *
  17.  * fr Lizenznehmer ausdrcklich erlaubt!  Der Autor beh„lt sich das    *
  18.  * Recht vor, diese Erlaubnis jederzeit und ohne Angaben von Grnden zu *
  19.  * widerrufen.                                                          *
  20.  *----------------------------------------------------------------------*)
  21.  
  22. (*----------------------------------------------------------------------*
  23.  * mtFiles      Grobes Filehandling, aber funktionstchtig.             *
  24.  *              Setzt direkt auf dem GEMDOS auf.                        *
  25.  *----------------------------------------------------------------------*)
  26.  
  27. DEFINITION MODULE mtFiles;
  28.  
  29. FROM MagicSys   IMPORT  Nil, Null, Bit0, Bit1, Bit2, Bit3, Bit4, Bit5, Bit6,
  30.                         Bit7, Bit8, Bit9, Bit10, Bit11, Bit12, Bit13, Bit14,
  31.                         Bit15, LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL,
  32.                         sBITSET, lINTEGER, lCARDINAL, lWORD, lBITSET;
  33.  
  34.  
  35.  
  36.  
  37.  
  38. IMPORT SYSTEM;
  39.  
  40. TYPE    FILE =  sINTEGER;        (* GEMDOS-Handle *)
  41.  
  42. PROCEDURE CreateFile (REF  name: ARRAY OF CHAR; VAR file: FILE);
  43. (* Legt eine neue Datei an *)
  44.  
  45. PROCEDURE OpenFile (REF  name: ARRAY OF CHAR; VAR file: FILE);
  46. (* ™ffnet eine vorhandene Datei *)
  47.  
  48. PROCEDURE CloseFile (VAR file: FILE);
  49. (* Schliežt eine Datei *)
  50.  
  51. PROCEDURE WriteFile (file: FILE; VAR num: lCARDINAL; buffer: SYSTEM.ADDRESS);
  52. (* Schreibt num Zeichen aus buffer in file. num enth„lt nach Aufruf die
  53.  * Anzahl der tats„chlich geschriebenen Zeichen
  54.  *)
  55.  
  56. PROCEDURE ReadFile (file: FILE; VAR num: lCARDINAL; buffer: SYSTEM.ADDRESS);
  57. (* Liest num Zeichen aus file in buffer. num enth„lt nach Aufruf die Anzahl der
  58.  * tats„chlich gelesenen Zeichen
  59.  *)
  60.  
  61. END mtFiles.
  62.  
  63.